home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / assembly / abakus.lha / Abakus / I / StartCLI < prev    next >
Text File  |  1995-06-28  |  368b  |  30 lines
  1.  
  2.  
  3.  
  4.         move.l  4,a6
  5.         moveq.l #0,d0
  6.         lea dosname,a1
  7.         jsr -552(a6)
  8.         move.l d0,DOSBase
  9.  
  10. run
  11.         bsr.s   x_go_start
  12.  
  13.         move.l DOSBase,a1
  14.         move.l 4,a6
  15.         jsr -414(a6)
  16.  
  17.         rts
  18.  
  19. dosname  dc.b "dos.library",0
  20.         cnop    0,4
  21.  
  22. DOSBase  ds.l  1
  23. stdout  ds.l 1
  24. stdin   ds.l 1
  25. _WBenchMsg       ds.l   1
  26.  
  27.  
  28. x_go_start
  29.  
  30.